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EDITORIAL 


Chers Amis, 


Voici donc le nouveau JPC, mis en page par les membres du nouveau bureau. 
Nous lavons voulu représentatif des différents domaines qui seront traités dans 
les prochains numéros. Nous espérons qu’il répondra à vos attentes. 


Comme vous avez pu le voir dans le sommaire, nous étrennons une nouvelle 
rubrique consacrée au HP-95. Certains articles qui y sont consacrés ce mois-ci 
montrent que si nous sommes en présence d’un "Compatible IBM", celui ci 
possède des possibilités qui sont encore à découvrir, comme cela l’a été par le 
passé pour toutes les autre machines de la marque. Il est donc inutile de vous 
dire que la chasse est ouverte, et que si vous trouviez une "fonction cachée" ou 
tout autre indice sur l’organisation interne, non dévoilée par HP, nous sommes 
bien sûr prêts à en faire écho... 

Comme vous pouvez le voir, nous serons de plus en plus amenés à utiliser 
d’autres machines, comme des IBM PC, pour faciliter le développement 
d'applications tournant sur nos machines de poche. Afin de ne pas déséquilibrer 
le contenu du journal avec des sources en assembleur ou en langage évolué (C, 
Pascal.) pouvant être beaucoup plus longs que ceux que nous publions 
auparavant, nous avons décidé de modifier la présentation des listings. Vous 
pourrez en juger en fin de ce numéro. Nous attendons votre avis sur cette 
nouvelle présentation. 


Parlons maintenant du HP-48. Depuis quelque temps, nous avons en notre 
possession ce que nous appelons les DS HP-48, bien que cela soit sensiblement 
différent avec ce qui a été fait pour le HP-71. Ce document est accompagné d’un 
ensemble d’utilitaires permettant de développer des applications HP-48 sur 
IBM-PC. Nous vous informerons dans le prochain numéro de la méthode choisie 
pour vous distribuer ces éléments. 


Pour finir, vous avez pu remarquer en lisant le sommaire, que ce journal compte 
relativement peu d’articles, écrits principalement par des membres du bureau. Il 
est donc relativement fin, mais nous espérons pouvoir, dès le prochain numéro, 
reprendre notre pagination normale, qui est de 36 à 40 pages. Nous n’osons plus 
vous rappeler, une fois de plus, qu’il est nécessaire que vous nous envoyez le plus 
vite possible des articles. En effet, il serait dommage que JPC disparaisse une 
fois de plus, mais cette fois pour cause d’articles promis mais non envoyés ! 


Ceci dit, nous vous souhaitons une bonne lecture... 


Jacques Belin (123) 
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HAUTE PERFORMANCE 


C'est le nom du club créé par la bien connue 
Fédération Française des Jeux Mathématiques, et dont 
le lancement est supporté par Hewlett Packard. Ses 
activités sont principalement centrées sur la HP-48, 
ainsi qu’une section dédiée au HP-95. 


Leur journal, faisant huit à douze pages et paraissant 
tous les trois mois, se veut plus généraliste et moins 
"pointu" que JPC. Vous y trouverez donc des 
informations sur les nouveaux produits, des articles 
courts et quelques trucs et astuces concernant les 
calculateurs de poche. 


Un de ses buts à long terme est de devenir le club des 
clubs, fédérateur des différents groupes d’utilisateurs 
(de HP-48 notamment) étant apparus en France ces 
dernières années. 


Au lieu de nous livrer à une guerre fratricide, nous 
avons décidé de vivre en commun et de partager nos 
informations, afin de rendre nos deux clubs 
complémentaires. Il sera donc possible de voir dans 
leur journal de courts articles signés de membres de 
PPC, qui seront traités de façon plus fouillée dans 
notre revue. 


Voici son adresse : 


Club Haute Performance 
Centre Châteaugaillard 
1, Avenue Foch 
94700 MAISON ALFORT 


Le coût de l'adhésion est de 48 F par an (pour quatre 
journaux) et donne droit à la publication gratuite 


d’une petite annonce. 


Jacques BELIN (123) 


COURRIER DU COEUR 


HOCLET Michel 

9 allée du bois de la Cyprenne 
91400 Orsay. 

Tel pers. : (1) 69 07 32 41. 

Tel prof. : (1) 69 08 59 86. 


Vend : 
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Unité de disquettes HP 9114B, 2500FF; Imprimante 
ThinkJet, 1500FF; Interface video 80 col. HP 92198 et 
moniteur monochrome HP 92913A, 1500FF; 
Interface HP-IL/RS 232C HP 82164A, 1000FF. 


VIRTUANI Fabrizio 
via Valsesia 86 

20152 Milano. Italia 
Tel : 02/4566639. 


Vend : 


HP-71B version 2CDCC; HP-IL; RAM 96 Ko CMT; 
HP-IL card pour IBM-PC; Software HP-IL LINK 
pour IBM-PC,; Internal Design Specification 3 vol. 
Hardware Design Specifications HP-IL Design 
Specification;, Interface RS-232C; Chargeur de 
batteries; 2 cables HP-IL de 1 m; Interface parallèle 
HP  82166A  GP-IO; Modules Math, 
Forth/Assembler, HP 41/71 Translator, Text Editor, 
Data Communication, AMPI Statistics, Finance, 
Circuit Analysis, Data Acquisition, Curve Fitting. Le 
tout pour 15000 FF avec documentation et 
emballages. 


TORCHET Jean-Yves 
Tel : 24 57 04 45 (province) après 20H 


Vend : 
2 HP-48SX, état neuf avec manuels, 1500FF chaque; 


extension mémoire 128K, 500FF; cable connexion PC, 
500FF. 


AOUFI Asdin 
Tel. prof. : (1) 49 40 34 34 


Vend : 


HP-75C, parfait état avec documentation et chargeur, 
3000FF. 


HP-28 


J.L. Attenoux Gestion d’erreurs 4 
J.L. Attenoux Mot de passe 5 
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GESTION D'ERREURS 


Ce programme permet de gérer les erreurs dans vos 
programmes pour HP-28C/S. 


Utilisation : 
#<N°Erreur> ERREND 


Effet : 


Affiche le message d’erreur correspondant, émet un 
BEEP d’erreur et arrête l’exécution du programme 
en cours. Ce programme vous permettra tout en 
simplifiant l'écriture de vos programmes de gagner 
quelques octets et de donner à vos applications un 
"Look HP" en vous servant des messages, et ils sont 
nombreux, qui existent dans la ROM de votre 
machine. 


Listing : 
Code asm  Mnémoniques Commentaires 
69c20 CON(5) 02096 Début d'objet routine 
LM 
début : 
XXXXX CON(S) fin-début Longueur du programme 
en quartets. 
18B et 1CC:00030. 
2BB:0003C. 
8F xxxxX  GOSBVL SAV.REG Sauvegarde registres 
D0,D1,B et D 
18B et 1CC:04EE2. 
28B:05081. 
18 F510C DO=(5) C015F Pour ver 2BB seulement: 
D2 c=0 A Mise à zéro du 
CMD NUMBER, pour ne 
144 DATO=C A pas faire référence à 
une instruction 
particulière dans le 
message d'erreur. 
143 A=DAT1 A A=Adr objet sur La pile 
1131 D1=A On va chercher à 
179 D1=D1+10 récupérer l'info utile 
143 A=DAT1 A A=Num. erreur à traiter 
8F xxxxx  GOSBVL LOAD.REG Rappel registres sauvés 
18B et 1CC:04F19. 
2BB:050B8. 
8D xxxxX  GOVLNG ERROR Exécution routine HP 
en ROM. 
18B et 1CC:03358. 
2BB:0396A. 
142 A=DATO A Fin de La routine 
(standard). 
164 DO=D0+5 808C PC=(A) 
fin: 


JPC 76 Page 4 


Avertissement : 


Il convient d’être très prudent lors de la saisie de la 
chaîne à assembler, car une erreur de frappe 
risquerait de provoquer un “Memory Lost" de votre 


machine. 


Pour une HP-28S assembler la chaîne suivante : 


né9c20C30008F180501BF510CD21441431311791438F8B05 
080A6930142164808C" 


Puis stocker dans le répertoire HOME le System Object 
obtenu sous le nom ’ERREND'. 


Pour une HP-28C version 1BB ou 1CC la chaîne est 
la suivante : 


69C20030008F2EE401431311791438F91F408D853301421 
64808C' 

Puis sauvegarder le System Object obtenu sous le nom 
ERREND'. 


Exemples d'utilisation : 


#5h ERREND 
#106h ERREND 
#204h ERREND 
#0 ou réel 
quelconque 


donne Le message “Memory Lost! 
donne Le message "Syntax Error! 
donne Le message "“Undefined Name! 


n'émet pas de BEEP 


Un exemple un petit peu plus concret pour une 
HP-285 : 


Pour éviter de détruire complètement un répertoire 
utilisateur en exécutant l'instruction CLUSR par 
mégarde, il vous suffit de sauvegarder le petit 
programme suivant dans le répertoire principal HOME 


sous le nom ’CLUSR’. Voici la liste des actions à 
effectuer : 


[HOME] 

« #103h ERREND » 

"21D205034C4553525" 

Assembler cette chaîne résultat: /CLUSR’ 
[STO] 


Si vous exécutez maintenant la commande CLUSR le 
message "“Improper User Function! apparaîtra et votre 
répertoire ne sera pas effacé. Pour annuler la 
redéfinition de cLUSsR ïl suffit de détruire le 
programme CLUSR grâce à la commande PURGE. 


Remarque : 


Si aucun argument n’est présent sur la pile, si 
l'argument est invalide ou s’il n’y a pas de message 
d'erreur correspondant au numéro spécifié, cette 
routine émet un BEEP et arrête l'exécution du 
programme. 


Conclusion : 

J'ai tenu à expliciter au maximum le listing du 
programme car je pense que cela pourra donner des 
idées à certains pour se mettre à la programmation 
assembleur sur HP-28. Je conseille d’ailleurs à tous 
ceux qui sont désireux d'apprendre, de se référer à la 
bible en la matière, je veux bien sûr parler du 
formidable bouquin écrit par Paul COURBIS et 
Sébastien LALANDE, "Voyage au centre de la 
HP-28C/S", bouquin qui a permis à l’humble 
débutant que je suis d’écrire ce petit programme. 


Jean-Louis ATTENOUX (83) 





PASSWORD MACHINE 


Ce programme pour HP-28$ 2BB permet de protéger 
le contenu de sa machine par un mot de passe. Ce 
mot de passe est en fait une combinaison de touches à 
appuyer simultanément. Une fois le programme 
démarré il est alors impossible de l’arreter à moins 
d'effectuer la bonne séquence de touches ou un 
Memory Lost. Dans tous les cas vos données 
confidentielles seront protégées 


Liste des routines : 


oFF Permet d’éteindre la machine 

Lock Permet d'empêcher les tests et arrêt softs 
de la machine par les séquences de touches 
habituelles 

wo Wait Until Owner routine de lecture de la 
séquence de touches 

M\A Programme liant l’ensemble des routines 
précédentes. 


Listings : 


Routine OFF : 


"76C2085E8109F20" ASM "OFF! STO 


Routine LOCK : 


69c20 CON(5) 02096 
34000 CON(5) 00043 Size=00043 Nibbles 
8F18050 GOSBVL SAV.REG 
1F4100C D1(5)= C0014 
3110 LC(2) 01 

148 A=DAT1 B 

AE8 B=A B 

BEC A=-A-1 B 

0E66 A=A&C B 

BEE C=-C-1 B 

0E65 C=C&B B 

OE6E A=AIC B 

149 DATI=A B 
8F8B050 GOSBVL LOAD.REG 
142 A=DATO A 

164 D0=D0+5 

808C PC=(A) 


"69C20340008F180501F4100C311014BAE8BEC0E66BEE0E650 
E61498F8B050142164808C" 

ASM 

LOCK’ STO 


Remarque : 

Cette routine effectue un OU Exclusif sur une zone de 
la mémoire de la HP-28S. Il faut donc l’effectuer deux 
fois pour retrouver l’état antérieur de sa machine. 


Routine wuo : 

69c20 CON(5) 02096 

05000 CON(5) 00050  Size=00050 Nibbles 

8F18050 GOSBVL SAV.REG 

1F5300C D1(5)= C0035 

30F LC(1) F 

1500 DAT1I=C 1 

3489200 LC(5) (00298 masque d'entrée 
clavier 

D5 B=C A 

3426000 LC(5) 00062 masque de sortie 
clavier 

8F1DA10 GOSBVL 01AD1 

E9 C=C-B A 

8AE 2C20 A 

DE GOYES -19 

300 LC(1) 0 

1500 DATI=C 1 

8F8B050 GOSBVL LOAD.REG 

142 A=DATO A 

164 DO=D0+5 

808c PC=(A) 
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Qui est équivalente à : 


"69C20050008F180501F5300C30F15D03489200D534260008F 
1DA10E98AEDE30015D08F88050142164808c" 

ASM 

!WUO' STO 


La combinaison pour sortir est  d’appuyer 
simultanément sur les touches [USER], [ENTER], [NEXT] 
CE EST. 


Routine M\A : 


« CLLCD 

" User password is ?" 

1 DISP #0Oh ->RL LOCK  #0h ->RL est optionnel pour 
une meilleure présentation 


OFF LOCK WUO LOCK Suivent les actions à 
exécuter à chaque démarrage 
SPEED CLOCK » (SPEED et CLOCK sont des 


exemples d’ actions) 
!M\A’' STO 


Avertissement : 


Il convient d’être très prudent lors de la saisie de la 
chaîne à assembler, car une erreur de frappe 
risquerait de provoquer un "Memory Lost” de votre 
machine. 


Enfin, je vous livre le moyen d’obtenir la version de 
votre machine par ce petit programme en assembleur 
qui comme la fonction oFF exécute la ROM de la 
HP-28$ à partir d’une adresse donnée. 


"76C20A000009F 201 


ASM 
IVER' STO 


Voilà, j'espère que ces routines vous rendrons de 
nombreux services, pour ma part je les utilise 
quotidiennement. 


Bonne Programmation à Tous ! 


Jean-Louis ATTENOUX (83) 
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HP-48 


A. Aoufi Nombres de Bernoulli 8 
A. Aoufi Intégrales Eulériennes complexes 9 
A. Aoufi Fonction d’Erreur 9 
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NOMBRES DE BERNOULLI 


Jacob Bernoulli a découvert les nombres qui portent 
son nom au 17ème siècle. Ceux-ci interviennent dans 
de nombreux domaines de la Mathématique : 

- Polynômes de Bernoulli, 

- Formule sommatoire d’Euler-MacLaurin, 

- Théorème de Kummer sur le problème de Fermat, 

- Fonction ç de Riemann. 


Le programme proposé évalue ces nombres B,,, pour 
1<n< 13 mais n'utilise pas la multiprécision. 


Définition 
La suite B, vérifie la relation : 


B, = L 
B;, F 18 
:B,  =0, 
Bon+1 = 0. 


Méthode 


On évalue la suite B,,, qui vérifie : 


On définit des procédures de calcul exact sur des 
rationnels. 


Le programme 
Il se compose des modules suivants : 


« + indice 
« { } indice 2 + 
+ 2 + 0 CON + ber 
« 1 ’ber(1,1)’ 
STO 1 ‘’ber(1,2)' 
STO -1 ‘’ber(2,1)' 
STO 2 ’ber(2,2)' 
STO 1 indice 
FR p12p*-21p1- 
FOR 
IFp1> 
THEN 2 p * 1 + 2 L * COMB 
fber(l+2,1)' -NUM * 
fber(l+2,2)' -NUM 
SIMPLIFIE SOMME 
END 
NEXT 2 p * 1 + * NEG SIMPLIFIE 
‘ber(p+2,2)' STO ‘’ber(p+2,1)' STO 
NEXT 
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/BER' STO 


«nd 
« n d PGCD + pgcd 
« n pgcd / d pgcd / + nn dd 
« 
IF dd 0 « 
THEN nn NEG 
‘nn’ STO dd NEG 
‘dd’ STO 
END nn dd 
» 
» 
» 
» 


#SIMPLIFIE’ STO 


« + n1 di n2 d2 
« d1 d2 PPCM + ppcm 
« n1 ppem * di / n2 ppcm * d2 / + 
ppem SIMPLIFIE 
» 
» 
» 
!SOMME' STO 


« + a b 
« a b * a b PGCD / 
» 

» 


!PPCM’ STO 


«- ab 
« 
IF b O0 == 
THEN a 
ELSE b a b MOD 
PGCD 
END 
» 
» 
fPGCD’ STO 


Mode d’emploi 


1) Entrer n inférieur ou égal à 13 et supérieur à 1 
comme argument dans la pile. 


Par exemple : 
n:5 


2) Taper 8er. On obtient le tableau des nombres de 
Bernoulli d'indice pair contenant les numérateurs et 
dénominateurs. 


Noter que les 2 premiers éléments sont: B,, B, puis 
B;, .… B;,. 


Par exemple : 


CE 1 7 
C1 271 
[ 1 6] 
[ -1 30] 
[ 142] 
[-130] 
[ 5 6] 


Les numérateurs et dénominateurs des nombres de 
Bernoulli  croissent très vite et changent 
alternativement de signe. Un recours à la 
multiprécision serait utile. Si le coeur vous en dit!. 


Asdin AOUFI (562) 


INTEGRALES EULERIENNES 
COMPLEXES 


Le HP-48SX est un fantastique outil pour faire du 
calcul numérique mais présente le même défaut que 
son aïeul HP-28S sur la fonction T d’Euler. Il ne peut 
l’évaluer dans le plan complexe! 


Nous proposons un programme de calcul qui utilisant 
les nombres de Bernoulli - cf article précédent - se 
base sur la formule de Binet pour : 

- calculer Tr, 

- calculer 8. 


Les programmes 


« + Z 
« !LNC2*x)/2+(2z-.5)*LN(Z)-Zz’ NUM 
1 13 
FOR m 
1B(m+2,1)/(BC(m+2,2)*2*m 
*(2*m-1)*z"(2*m-1))! 
NUM + 
NEXT EXP 
» 
» 


!GAMMA’ STO 


«+ X Y 
! CGAMMACX)+GAMMA(Y) )/GAMMACx+y)! 
NUM 

» 


"BETA! STO 


13 BER ’B' STO 


1) Entrer x comme argument dans la pile. 
Par exemple : 
x :5 


2) Taper GAMMA.On obtient la valeur der 
Par exemple : 
23.9999999998 


3) Entrer x et y comme arguments dans la pile. 
Par exemple : 
22 


4) Taper 8ETA.On obtient la valeur de 8 
Par exemple : 
0.33350419019 à comparer à 1/3. 


5) Entrer x complexe comme argument dans la pile. 
Par exemple : 
x : (5,5) 


6) Taper GAMMA.On obtient la valeur der 
Par exemple : 
(-0.974395241698,2.00668988275) 


Compte tenu du faible ensemble de nombres de 
Bernoulli considéré on obtient une précision 
moyenne . 


Asdin AOUFI (562) 


FONCTION D'ERREUR 


Le numéro précédent JPC 73/75 présentait divers 
programmes de Robert Pulluard pour évaluer la 
fonction  d’erreur à laide de la série 
hypergéométrique. 


Revenons-y aujourd’hui pour proposer une autre 
méthode de calcul qui tient compte des 
caractéristiques de la fonction UTP. 
L’astuce est lisible dans le programme ERFB. 
Les programmes 
« 

+ x !2//n*f(0,x,EXPC-T°2),T)' NUM 


» 


lERFA' STO 
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CERX 
« 1 0 .5 x UTPN 2 * - 
» 

» 

'ERFB' STO 


Mode d’emploi : 


1) Entrer x comme argument dans la pile. 
Par exemple en mode so: 
x : 0.5 


2) Taper ERFA. On obtient la valeur d’'ERF(x); 
.520499877811 
IERR = 4.6E-12 


3) Taper ERF8. On obtient instantanément la valeur 
approchée d'ERF(x); 
.520499877814 


On observe le même résultat à epsilon près entre les 
deux programmes avec un avantage en temps 
considérable pour le second. 


Si vous faites des calculs de diffusion il vous sera 
sûrement très utile comme élément de base pour des 
formules complexes , pour ma part je lutilise 
quotidiennement. 


Asdin AOUFI (562) 
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HP-71 


A. Rottman Désassembleur en Basic 12 
E. Gengoux & A. Rottman Problèmes de disquettes LIF 13 
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L'OPERATION DE 
DESASSEMBLAGE 


La présentation des instructions de l'ASSEMBLEUR 
trouve une extension très intéressante dans les 
procédures de désassemblage. 

Un des programmes les plus intéressants de 
désassemblage a été publié par J. Taiïllandier dans 
Micro Revue 5/1985 et sera discuté en détail dans cet 
article. Il faut souligner que cette discussion est à la 
fois utile pour lapprentissage du BASIC et de 
l’'assembleur. 


Structure et façon de travailler du programme 
1- Variables essentielles : 


A0=Adresse; N$(1$)=Code; L$= Instruction. Le but 


du programme est d'écrire ces 3 variables (ligne 
8520). 


On a montré précédemment que l’ensemble des 
instructions de l’Assembleur sont codés avec des 
symbits ayant de 2 à 18 nibs. Certaines instructions 
contiennent dans le code une sélection du champs du 
registre, une distance de transfert ou une constante. 


Les codes des instructions peuvent commencer par un 
des 16 caractères hexadécimaux (0 à F) qui 
introduisent donc une division en classes (les lignes 
300, 705, 1010, 1015, 1500, 1600, 1620, 1640, 5005, 
5000, 5500, 8300, 8345, 8365, 8400 du programme). 
Les classes les plus développées sont les 1 et 8. 


L’algorithme du programme est basé sur une analyse 
des 4 premiers caractères du code qui sont retenus 
dans la variable N$. On introduit une notation spéciale 
pour le 2ème, 3ème et 4ème caractères 
respectivement M$, O$ et PS. 


En fonction de la valeur du premier caractère la ligne 
294 branche vers une classe différente définie par ce 
premier caractère de l'instruction. 


Si par exemple le premier caractère est 0 on est 
transféré à la ligne 300. Les instructions de cette 
classe ont 2 à 4 bits. Les instructions à 2 bits ont le 
deuxième caractère variable de 0 à F avec E qui 
manque, parce que les instructions classe 0 à 4 bits 
ont toutes E en deuxième position et le caractère qui 
fait la différence est le quatrième. 


Alors la procédure adoptée est la suivante : 

pour 2 ou 4 bits on lit d’abord dans un tableau A$C ) 
l'ensemble des instructions de la classe respective; le 
tableau A$C ) est dimensionné maximalement DIM 
A$(15)161 et on choisit après, en fonction du caractère 
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2, «M$) le terme ASCHTD(MS)) et similairement pour les 
instructions 4 bits le terme ASCHTD(PS)), (PS étant le 
4ème caractère). Il faut ajouter que dans le code de 
l'instruction, la sélection du champs du registre se fait 
pour chaque instruction par addition des caractères 
appropriés. 


Comme particularité du BASIC il faut souligner la 
mise en correspondance du tableau A$( ) avec un bloc 
DATA, en faisant préalablement RESTORE "# Ligne". Si 
on examine la classe 1 on a des instructions à 3, 4, 6, 7 
nibs. 

Pour toutes les instructions, dont le deuxième 
caractère M$>5, l'instruction est construite dans le 
programme (à partir de la ligne 815), instructions 
classe 1, avec 6 comme deuxième caractère du code, 
et ayant la forme : 

DO=D0+n 


Le nombre de caractères lus, pour chaque instruction, 
tient compte de nombre de nibs de l'instruction 
respective. 

La fonction FNP est équivalente à PEEK. 

Les autres fonctions FNA$, FNB$, FNC$ servent pour 
calculer les adresses relatives nécessaires pour 
effectuer respectivement un transfert court, long et 
très long (256, 4096, 65536 octets). 

En général la moitié de ces distances est positive et 
l'autre moitié (supérieure) est négative. 


Maintenant on peut se demander si au lieu d’utiliser 
un fichier contenant l’ensemble des instructions de 
PAssembleur, introduites dans le programme sous 
forme de blocs DATA, on ne peut extraire ces 
instructions, du module FORTH-ASSEMBLEUR. 
Or cette opération est possible, et elle est faite par le 
programme ASl. 


Ce programme exploite la table qui se trouve à partir 
de l'adresse E7407 et la structure de cette table est la 
suivante: 

Classe de l’opcode 2 nibs, longueur du texte 1 nib, 
l'instruction 12 nibs, les drapeaux 2 nibs, la longueur 
du code de l'instruction 1 nib, le codage de 
l'instruction 5 nibs, la variable A 1 nib et la variable 8 
1 nib. 


Les opcodes sont groupés en 43 groupes (0-42), et 
chaque groupe contient au plus 15 instructions. 


Les drapeaux peuvent avoir 8 valeurs qui séparent les 
instructions fournissent une information pour la 
boucle principale ou précisent que l'instruction est la 
dernière de la chaîne. 


L’arrangement des opcodes dans un groupe respecte 
une disposition ayant l’ordre alphabétique 
D-B-F-A-C-E-G. La fonction HASH (adresse EEF00) est 


utilisée dans les procédures d’assemblage, pour 
déterminer le groupe. 


L’algorithme consiste à prendre les trois bits d’ordre 
inférieur de chaque caractère de l’opcode et de 
former une chaîne connexe de 18 nibs. En prenant le 
mod 43 de cette valeur on obtient le groupe. 


Aurel ROTTMAN (289) 


PROBLEMES DES DISQUETTES 


Pour pouvoir réaliser une liaison entre divers 
ordinateurs fabriqués par HEWLETT PACKARD, 
on a choisi le format appelé LIF (logical interface 
format). Ainsi par exemple pour le HP-75, on a 
adopté le format LIF1, et pour le HP-71, le format 
LIF; en même temps pour toutes les séries 200, 300, 
500 on a adopté des procédures capables de lire et 
d'écrire des fichiers texte. 


Ces procédures présentent une grande importance 
pour limpression du bulletin de notre club. Mais il 
s'est avéré, qu'au moment où on a eu besoin 
d’effectuer cette opération, on ne savait pas quel était 
le type de la disquette utilisée, et en quoi elle différait, 
par rapport à une disquette standard, formatée sur le 
HP-71. 


Le but de cette présentation est double : 


1- permettre une compréhension du mécanisme de 
transfert HP71-IPC ou vice versa, 


2- donner la possibilité aux auteurs d’articles, pour 
notre bulletin, et qui peuvent nous les envoyer sur une 
disquette, de formater cette disquette, pour qu’elle 
soit compatible à la fois avec le HP-71 et l'IPC. 


Le formattage d’une disquette implique spécialement 
une écriture de l’enregistrement (secteur) zéro de la 
disquette, qui comporte 256 octets. (Voir HP82401A 
HP-IL Interface Owners Manuel for HP-71 p.233). 
Pour les disquettes HP-71 le catalogue des fichiers 
commence avec le secteur 2. 

Si on analyse le secteur zéro de la disquette HP-71, et 
celui de la disquette LIF-IPC on a la situation 
reproduite dans le tableau suivant : 


Octets| Nature de|Néces[Disquette [Disquette | 
Sect. |l’enregis.[sité |HP71 ILIF-IPC | 
zéro | IHP71 | | | 

1-2 |identific.| oui |0800 [0800 | 


3-8 [Etiquette | Oui |C49464020202]2554E4350202| 


9-12 |Enreg.dép.| Oui [00000020 [00000020 | 
13-14 |Sys.HP3000| Non [0100 [0100 | 
15-16 [Non util. | Non |0000 [0000 | 
17-20 [Long.Direc| Oui [000000D& [00000041 | 
21-22 [Version | Oui |0010 [0010 | 
23-24 [Non utilis| Non |0000 [0000 | 
25-28 |Piste/surf| Oui*|000000D4 [000000D4 | 
29-32 |No.surfac.| oui*|00000020 [00000020 | 
33-36 [Enreg/pist| Oui*[00000001 [00000001 | 


37-42 |Date&temps| Non [092002227045 [688052110000] 
43-256|Ext.&Maint| Non | zéro | zéro | 


La conclusion, en examinant le tableau, est la 
suivante: 


la disquette HP-71 peut être rendue compatible à 
l'IPC, par un changement des octets 19 et 20 du 
secteur zéro, les octets étant numérotés de 1 à 256. Il 
faut, en utilisant la fonction RREC$, du JPCROM, 
remplacer D4 par A1. 


E. Gengoux(108) & A. Rottman(289) 
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Programme DISAS (Désassembleur, nécessite REVLEX) 


- DISAS J. TAILLANDIER MICRO 5/85 
9 OPTION BASE 0 à DESTROY J$ 
10 DIM A$(15)161,S$(7) [21,N$[4],M$[4],1$[20],0C$(11) 06] ,J$15] 
15 DIM A7$(7)[6],L$130],L0$(15) [61 ,M0$(16) [51,M1$(16) [7] 
50 READ S$(),C$(),A7$() 
290 INPUT ‘Start add? ’;J$ à A=HTD(J$) 
292 1F KEYDOWN THEN END ELSE N$=FNP$(A,4) à A0=A Q N=HTD(N$[1,11)+1 
293 M$S=N$S(2,2] à O$=N$[3,3] à P$=N$[4,4] @ A=A+2 à I$=N$[1,2] 
294 ON N GOTO 310,707,1011,1020,1505,1605,1625,1645,5005,5000,5505,5525,8310,8360,8370,8410 
- CLASS 0 
310 IF M$=’E’ THEN 320 
312 RESTORE 9100 à READ A$() 
315 RESTORE 9100 Q READ A$() à L$=A$(HTD(M$)) à GOTO 8520 
320 RESTORE 9170 à READ A$() à L$=AS$S(HTD(P$)) 
325 IF O$='F' THEN L$=L$&’ A’ ELSE L$=L$&’ ’&SS(HTD(0$)) 
330 1$=1$8O$&P$S à A=A+2 Q GOTO 8520 
- CLASS 1 
707 N=HTD(M$)+1 
710 ON N GOTO 720,785,805,857,875,895,915,925,935,945,955,965,975,985,995,1005 
720 RESTORE 9200 à READ A$() à L$=A$S(HTD(O$)) à A=A+1 à 1$=1$80$ à GOTO 8520 
785 RESTORE 9210 à READ A$() à L$=A$(HTD(0$)) à A=A+1 à 1$=1$&0$ à GOTO 8520 
805 RESTORE 9220 à READ A$() à L$=A$S(HTD(0$)) à A=A+1 à 1$=1$80$ à GOTO 8520 
857 RESTORE 9140 @ READ A$() @ L$=AS(HTD(0$)) @ A=A+1 à 1$=1$80$ à GOTO 8520 
875 N=HTD(0$) à L$=A7S(MOD(N,8)) 
880 IF N>7 THEN L$=L$&’ B’ ELSE L$=L$&’ A’ 
885 A=A+1 Q 1$=1$80$ à GOTO 8520 
895 N=HTD(0$) à A=A+2 
900 IF N<8 THEN L$=A7$(N) à LS$=L$&’ ’&S$(HTD(P$)) 
905 IF N>7 THEN L$=A7$S(MOD(N,8)) à L$=L$&’ ’&DTHSC(HTD(P$)+1) 
910 I$=1$&0$&P$ à GOTO 8520 
915 N=HTD(O$) 9 N=N+1 @ J$=STRS(N) à 1$=1$80$ 
920 L$=/D0=D0+ ’&J$ à A=A+1 à GOTO 8520 
925 N=HTD(O$) à N=N+1 Q J$S=STRS(N) à 1$=1$80$ 
930 L$='D1=D1+ ’&J$ à A=A+1 à GOTO 8520 
935 N=HTD(O$) à N=N+1 @ J$S=STRS(N) à 1$=1$80$ 
940 L$='D0=D0- ’&J$ à A=A+1 à GOTO 8520 
945 A=A+2 à K$=O$£&P$ à IS=I$SEKS 
950 L$=/D0=(2) ’&REVS(K$) à GOTO 8520 
955 A=A+2 à K$=OSSPS&FNPS(A,2) à A=A+2 à I$=1$8KS 
960 L$='D0=(4) ’&REV$(K$) à GOTO 8520 
965 A=A+2 Q K$=OS&PSEFNPS(A,3) à A=A+3 à I$=1$8KS$ 
970 L$=/D0=(5) ’&REVS(K$) à GOTO 8520 
975 A=A+1 à 1$=1$80$ à N=HTD(O$) à N=N+1 à J$=STRS(N) 
980 L$='D1=D1- ’&J$ à GOTO 8520 
985 A=A+2 Q K$S=O$S&P$S à I$=I1$8KS 
990 L$=/D1=(2) ’&REV$(K$) à GOTO 9520 
995 A=A+2 à@ K$=OSSPS&FNPS(A,2) Q A=A+2 à I$=1$8K$ 
1000 L$=/D1=(4) ’&REV$(K$) à GOTO 8520 
1005 K$=0$&P$S&FNP$(A,3) à A=A+3 à I$=ISEKS à L$=/D1=(5) ’&REVS(KS) à GOTO 8520 
- CLASS 2 
1011 L$=/P= ’&M$ Q GOTO 8520 
- CLASS 3 
1020 N=HTD(M$) à N=N+1 Q J$=STRS(N) à K$S=FNPS(A,N) à A=A+N à L$='LC('&J$&’) 
1030 I$=IS8KS$ 
1035 L$=L$&REVS(K$) à GOTO 8520 
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- CLASS 4 
1505 K$=M$8O$ à 1$=1$80$ 
1507 IF K$=/20' THEN L$='NOP3 
1510 IF K$=/00 THEN L$=/RTNC’ ELSE L$=’GOC '&FNASCKS,A-1) 
1515 A=A+1 Q GOTO 8520 
- CLASS 5 
1605 K$=M$&O$ à 1$=1580$ 
1610 IF K$=/00’ THEN L$='RTNNC’ ELSE L$=/GONC  ’&FNAS(KS,A-1) 
1615 A=A+1 à GOTO 8520 
- CLASS 6 
1625 K$=0$S&P$S à I$=IS8KS 
1627 IF M$&K$=/300’ THEN L$=/NOP4' à A=A+2 à GOTO 8250 
1628 IF M$&K$=/400’ THEN L$=/NOP5’ à A=A+3 Q 1$=1$&'0’ à GOTO 8520 
1630 L$=’GOTO l&FNB$(M$&KS,A-1) @ A=A+2 à GOTO 8520 
- CLASS 7 
1645 K$=MS&OSEPS à IS=ISEOSEPS Q A=A+2 
1650 L$="GOSUB ‘’&FNB$(K$,A) à GOTO 8520 
5000 SFLAG 63 à GOTO 5017 ! CLASS 9 
5005 CFLAG 63 ! CLASS 8 
5007 N=HTD(M$)+1 
5010 ON N GOTO 5065,5115,5150,5185,5220,5235,5240,5265,5280,5295,5017,5017,5305,5310,5325,5330 
5017 IF FLAG(63) AND M$>/7’ OR NOT FLAG(63) AND M$='B’ THEN RESTORE 9020 ELSE RESTORE 9000 
5020 READ AS$() à L$=A$CHTD(0$)) à A=A+1 à 1$=1$80$ 
5035 IF NOT FLAG(63) THEN L$=L$&’ A’ ELSE L$=L$&’ ’&SS(MOD(HTD(MS),8)) 
5040 GOTO 8500 
5065 A=A+1 à 1$=1$80$ 
5070 IF O$<>'8’ AND O$</C' THEN L$=C$(HTD(0$)) à A=A+1 à 1$=1$&0$ à GOTO 8520 
5075 IF O0$=/8' AND P$=/F' THEN L$='INTOFF’ à A=A+1 à I$=I$&P$ à GOTO 8520 
5080 IF 0$='8’ AND P$='0’ THEN L$=’ INTON'’ 
5090 IF O$=/E’ THEN L$=/SREQ?’ à GOTO 8520 
5095 IF O$=/C' THEN L$=/C=P 1&P$ à A=A+1 à I$=I$&P$S à GOTO 8520 
5100 IF O$='D' THEN L$='P=C 1&P$ à A=A+1 à I$=I$&PS à GOTO 8520 
5105 IF O$=’F' THEN L$='CPEX  '’&P$ à A=A+1 à 1$=1$&P$ à GOTO 8520 
5115 A=A+1 à 1$=-1$€0$ 
5120 N=HTD(O$) à IF N<=7 THEN RESTORE 9060 ELSE 5125 à READ A$() à L$S=A$S(N)&’C' 
5122 GOTO 8520 
5125 N=POS(!CDEF’,0$)-1 à L$='ASRBBSRBCSRBDSRB [N*4+1,N*4+4] 
5130 GOTO 8520 
5150 A=A+1 à 1$=-1$80$ 
5155 IF 0$=/1’ THEN L$=’XM=0’ à GOTO 8520 
5160 IF 0$=/2’ THEN L$=/SB-0’ à GOTO 8520 
5165 1F 0$='4' THEN L$=/SR=0’ à GOTO 8520 
5170 IF 0$=/8' THEN L$=’MP=0’ Q GOTO 8520 
5175 IF O$=/F' THEN L$='CLAMST’ à GOTO 8520 
5185 A=A+1 Q 1$=-1$80$ 
5190 IF 0$=’1’ THEN L$=/?XM=0’ Q GOTO 8500 
5195 IF 0$=/2 THEN L$='?SB-0’ à GOTO 8500 
5200 IF O$=/4' THEN L$=’?SR=0’ à GOTO 8500 
5205 IF O0$=/8' THEN L$=’?MP=0’ à GOTO 8500 
5220 L$='ST-0 ’&O$ à A=A+1 9 I1$=1$80$ à GOTO 8520 
5235 L$='ST=1 /&0$ 9 A=A+1 à 1$=1$80$ à GOTO 8520 
5240 L$='?ST=0 ’&O$ Q A=A+1 à 1$=1$&0$ à GOTO 8500 
5265 L$='?ST=1 ’&O$ à A=A+1 à I$=I1$&0$ à GOTO 8520 
5280 L$='?P#0 ’&0$ à A=A+1 9 1$=1$&0$ à GOTO 8500 
5295 L$='?P=0 ’&0$ à A=A+1 Q 1$=I$&0$ à GOTO 8500 
5305 K$=FNPS(A,4) à 1$=1I$8K$ Q L$=/GOLONG ’&FNC$(K$,A) @ A=A+4 à GOTO 8520 
5310 K$=FNP$(A,5) à I$=I$8K$ 9 L$=’GOVLNG ’&XFN94004(K$) @ A=A+5 à GOTO 8520 
5325 K$=FNP$(A,4) Q I$=I$8K$ Q A=A+4 Q L$="GOSUBL ’&FNCS(K$,A) @ GOTO 8520 
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5330 
5335 
5505 
5510 
5515 
5525 
5530 
5535 


8310 


8360 


8370 


8410 
8500 
8510 
8520 
8525 
8600 
8610 
8615 
8620 
8625 
8630 
8635 
8640 
8645 
8700 
8990 
8991 
8995 
9000 
9020 
9030 
9060 
9080 
9090 
9100 
9110 
9120 
9140 
9150 
9170 
9180 
9185 
9190 
9200 
9210 
9220 


KS=FNPSCA,5) à IS$=I$8K$ à A=A+5 
L$="GOSBVL ’&XFN94004(K$) à GOTO 8520 
CLASS A 
N=HTD(MS) à IF N<8 THEN RESTORE 9080 ELSE RESTORE 9120 
READ A$() à L$=ASCHTD(O$)) à A=A+1 à 1$=1$80$ 
LS=L$S&SS(MOD(N,8)) à GOTO 8520 
CLASS B 
N=HTD(MS) à IF N<8 THEN RESTORE 9185 ELSE RESTORE 9060 
READ A$() à L$=AS$SCHTD(0$)) 
L$=L$R’ ’&SS(MOD(N,8)) à A=A+1 à 1$=1$80$ à GOTO 8520 
CLASS C 
RESTORE 9080 à READ A$() à L$=ASCHTD(MS))&’ A’ à GOTO 8520 
CLASS D 
RESTORE 9120 à READ A$() à L$=ASCHTD(MS))&’ A’ à GOTO 8520 
CLASS E 
RESTORE 9185 à READ A$() à L$=ASCHTD(MS))8&’ A’ à GOTO 8520 
CLASS F 
RESTORE 9060 à READ A$() à L$=ASCHTD(M$))&’ A’ @ GOTO 8520 
SUBROUTINES 
GOSUB 8525 à I$=FNP$CA,2) à J=A à A=A+2 à A0=A 
IF 1$="00’ THEN L$=/RINYES’ ELSE L$=/GOYES "&FNAS(I$,J) 
PRINT DTHS(AO);TAB(8):1$;TAB(10+LENCI$));L$ à GOTO 292 
PRINT DTHS(AO);TAB(8):1$:TAB(10+LENCIS));L$ à RETURN 
DEF FNASCIS,J) 
K=HTD(REVS(1$)) à IF K>127 THEN K=K-256 
FNAS=DTHS(J+K) à END DEF 
DEF FNBSCI$,J) 
K=HTD(REVS(1$)) à IF K>2047 THEN K=K-4096 
FNB$=DTHS(J+K) à END DEF 
DEF FNCS(IS$,J) 
=HTD(REVS(1$)) à IF K>32767 THEN K=65536-K 
FNC$=DTHS(J+K) à END DEF 
DEF FNPS$S(K,1)=PEEKS(DTHS(K),1) 
DATA 
DATA ! P/,!/WP!,1XS!,! X!,! S',! M',' B',' y! 
DATA OUT=CS ,OUT=C,A=IN,C=IN,UNCFNG,CONFIG,C=1D, SHUTON, ,C+P+1,RESET , BUSCC 
DATA DATO=A,DATI=A, A=DATO,A=DAT1,DATO=C,DATI=C,C=DATO,C=DAT1 
DATA ?A=B,2B=C,?A=C,?C=D,2A#B,?B#C, 2A#C, 2C#D ,2A=0,7B=0,?C=0,?D=0, ?A#0, ?B#0, ?C#0,?D&0 
DATA ?A>B,2B>C,?C>A,?D>C,?A<B,?B<C,?C<A,?D<C, ?A>=B,?B>=C, ?C>=A 
DATA ?D>=C,?2A<=B,?B<=C,2C<=A,2D<=C 
DATA ASL,BSL,CSL,DXL,ASR,BSR,CSR,DSR,A=-A,B=-B,C=-C,D=-D,A=-A-1,B=-B-1,C=-C-1,D=-D-1 
DATA A=A+B,B=B+C,C=C+A,D=D+C,A=A+A,B=8+B,C=C+C,D=D+D,B=B+A,C=C+B 
DATA A=A+C,C=C+D,A=A-1,B=B-1,C=C-1,D=D-1 
DATA RTNSXM,RTN,RTNSC,RTNCC, SETHEX, SETDEC,RSTK=C,C=RSTK, CLRST 
DATA C=ST,ST=C,CSTEX,P=P+1,P=P-1,,RTI 
DATA A=0,B=0,C=0,D=0,A=B,B=C,C=A,D=C,B=A,C=B,A=C,C=D,ABEX,BCEX, ACEX, CDEX 
DATA DO=A,D1=A,ADOEX,AD1EX,D0=C,D1=C,CDOEX,CD1EX,DO=AS,D'1=AS 
DATA ADOXS,AD1XS,DO=CS,D1=CS,CDOXS,CDIXS 
DATA A=A8B,B=BRC,C=C&D,D=D8&C,B=B&A,C=C8B,A=ARC,C=C&D ,A=A1B,B=B!C 
DATA C=CIA,D=DIC,B=BIA,C=CIB,A=AIC,C=CID 
DATA A=A-B,B=B-C,C=C-A,D=D-C,A=A+1,B=B+1,C=C+1,D=D+1 
DATA B=B-A,C=C-B,A=A-C,C=C-D,A=B-A,B=C-B,C=A-C,D=C-D 
DATA RO=A,RR1=A,R2=A,R3=A,R4=A, ,, ,RO=C,R1=C,R2=C,R3=C,R4=C,,, 
DATA A=RO,A=R1,A=R2,A=R3,A=R4,,, ,C=RO,C=R1,C=R2,C=R3,C=R4,,, 
DATA AROEX,AR1EX,AR2EX,AR3EX,AR4EX, ,,,CROEX,CRIEX,CR2EX,CR3EX,CR4EX,, , 
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LE NOUVEAU HP-95 


Annoncé depuis quelque temps déjà, la nouvelle 
version du HP-95 devrait être disponible au moment 
où vous lirez ces lignes. 


La principale différence réside dans sa mémoire 
principale portée à 1 Mo, au lieu des 512 Ko de la 
première version. Ceci permettrait donc de porter la 
mémoire de base à la limite fatidique des 640 Ko de 
MS-DOS, et réserver les 384 Ko restants au disque 
dur C. 


D'autre part, de nouvelles fonctions DOS auraient été 
ajoutées, ainsi qu’une meilleure gestion de la 
mémoire. 


Le seul point noir réside dans son prix, environ 1000F 
plus cher que la version 512 Ko, qui reste cependant 
commercialisée. 


Les personnes possédant l’ancien modèle peuvent 
cependant bénéficier d’une opération de reprise 
organisée par EduCALC. En effet, cette bien connue 
société californienne propose à toute personne 
envoyant l’ancien modèle, accompagné d’un 
règlement de 195$, d’envoyer en retour une version à 
1 Mo. Ce type d’opération est étudiée par certains 
distributeurs parisiens, mais reste conditionnée par 
HP France. Si cela est possible, nous vous en 
informerons dans le prochain numéro. 


Jacques Belin (123) 


TO RUN OR NOT TO RUN 


Bien que le HP-95 soit un “compatible IBM", nous 
avons constaté que certains programmes PC 
fonctionnaient mal, ou ne tournaient pas du tout sur 
le HP-95. Ceci est souvent causé par certains 
programmes fonctionnant à un trés bas niveau, pour 
attaquer par exemple l'affichage ou le disque C. 
D'autre part, certains programmes, bien qu’il n’aient 
pas été ecrits spécifiquement pour le HP-95, ont un 
affichage qui peut être parfaitement adapté pour la 
machine. 


Cet rubrique, que vous retrouverez régulièrement 
dans les prochains JPC, leur est consacré. Nous vous 
indiquerons quelle est la version testée, car il est fort 
possible qu’une nouvelle version du programme 
fonctionne mieux que la précédente, ou inversement. 
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Nous vous indiquerons aussi si ils sont dans le 
domaine public (freeware), en shareware, ou 
commerciaux. Il est bien entendu que si nous nous 
efforcerons de faire circuler ces deux premiers types 
de programmes, nous ne pourrons pas redistribuer 
des programmes commerciaux... 


Programmes Conseillés : 


FSD.COM Ce programme, dont lécran de 
présentation indique ZBM Internal Use Only, est un 
débugger permettant l’analyse de programmes COM 
ou EXE. Sur IBM, l’écran affiche différentes zones : 
Registres CPU, Code désassemblé du programme et 
contenu de deux zones mémoire en Hexa-décimal (la 
deuxième comporte en outre la correspondance en 
ASCII). Sur l'affichage du HP-95, les deux premières 
zones (les plus importantes à mon avis), sont visibles 
en totalité. 


Programmes tournant imparfaitement : 


PC TOOLS (version 1.00, commercial) : Sur cet 
utilitaire bien connu, il est possible d’afficher l’état de 
fragmentation des disques (MAPPING). Or si cela est 
possible sur le disque A (carte mémoire), nous ne 
pouvons pas visualiser celui du disque C, car le 
programme ne trouve pas la FAT. Cela est peut-être 
dû au fait que ce disque ne comporterai pas de table 
de partition sur le HP-95. 


POWER METER (The Database Group, version 1.5, 
commercial ?) : Ce programme, permettant 
d’effectuer tout une série de tests de performances du 
PC, fonctionne relativement bien, sauf en ce qui 
concerne certains accès disques, sûrement pour les 
mêmes raisons que PC TOOLS. Par exemple, il est 
impossible de connaitre le temps d’accès du disque C, 
mais on peut peut voir celui du disque À, qui est de 2 
milli-secondes (avec un taux de transfert de plus de 
2300 Ko/s) ! 


Programmes ne fonctionnant pas : 


SIDEKICK (Borland, version 1.52, commercial) : 
Ensemble d’utilitaires résident. Plante le système. 


SPEED (Landmark, version (0.99, Freeware) 
Programme de test de performances du CPU. Plante 
(Internal Stack Failure). 


CORETEST (Core, version 2.4, Freeware) 
Programme de test de performances de disque dur. 
Plante (Disk 0 not present). 


BRKBOX (Tim Burmeister, version 1.1, Freeware) : 
Programme résident affichant en permanence, en 
haut de lécran, l’état des lignes (données et 
handshakes) d’une interface RS-232. Plante. 


C’est tout pour aujourd’hui, si vous avez testé d’autres 
programmes pouvant entrer dans ces catégories, 
n’hésitez pas à nous le faire savoir, cette rubrique leur 
est ouverte ! 


Jacques Belin (123) 


DETECTION DU HP-95 PAR 
UN PROGRAMME MS-DOS 


le HP-95 comportant quelques différences notables 
par rapport à un IBM PC classique, comme par 
exemple la taille de l'affichage, il peut être nécessaire 
à un programme savoir sur quelle machine est en 
train de s’exécuter. 


Dans ce but, les développeurs du HP-95 on eu la 
bonne idée de nous fournir une fonction, accessible 
de façon standard par un appel d'interruption. 


Cette fonction est appelée par l’intermédiaire de 
l'interruption 15, fonction 4d, sous-fonction d4. Si elle 
est appelée sur un PC quelconque, les valeurs 
retournées dans les registres seront nulles, ou 
incohérentes, selon les différents BIOS. 


Par contre si la fonction est appelée sur le HP-95, les 
valeurs retournées dans les registres du 
microprocesseur seront : 


Registre AH = code ASCII du caractère H” 
AL = code ASCII du caractère ’P’ 
CH = code de la machine (1 pour le HP-95) 
CL = numéro de version de la machine. 


En assembleur, nous pouvons écrire une fonction 
utilisant cette interruption comme ceci : 


detect_hp95 : 


mov  ax,4ddéh sinitialisation 


int 15 ;appel interruption 
test ax,’HP' ;AX = HP! ? 

jne  notfnd non, on va plus bas 
test ch,01 sCH = 1 ? 

jne  notfnd non, on va plus bas 
mov  ax,0001 c'est un HP-95 

jmp fin ;svers La fin 


notfnd : sub 
CN 5 ret 


ax, ax ;AX = 0 


sfin de La fonction 


En cas de détection du HP-95, le registre AX contient 
la valeur 1, sinon on y trouvera la valeur 0. 


Vous pouvez noter que le contenu du registre CL 
(version du HP-95) n’est pas pris en compte. Si les 
prochaines versions du HP-95 présentent des 
différences importantes, il faudra en tenir compte, 
peut-être dans la valeur retournée. Il est donc 
nécessaire, pour éviter tout problème futur, 
d'effectuer le test de la valeur retournée par 
detect_hp95 sur la valeur "0" et non sur la valeur "1", si 
on désire seulement savoir si on tourne sur HP-95 ou 
sur PC. 


Dans le même esprit, voici la même routine écrite en 
langage C : 


int detect_hp95(void) 
€ 
union REGS regs; 
int retour=0; 


regs.x.ax= 0xéddé; 
int86(0x15, &regs, &regs); 
if(Cregs.h.bh == ’H'}) && (regs.h.bl == ’P') 
&& (regs.h.ch == 0x01)) 
retour=1; 
return(retour); 
} 


En cas d’exécution sur HP-95, la routine retournera la 
valeur "1", sinon ce sera la valeur "0". 


Jacques Belin (123) 
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POUR UNE POIGNEE DE 
FONCTIONS 


Récemment, je vous ai présenté une toolbox 
permettant de lire des disquettes LIF sur un IBM-PC. 
Comme promis, je vous présente aujourd’hui 
quelques commandes MS/DOS permettant de lister 
un catalogue et de manipuler certains fichiers. 


LIFCAT 


Cette commande permet d’afficher le catalogue d’une 
disquette LIF. 


Syntaxe : 
lifcat [-a text] [-c] [-d device] [-e] [-l] [-t TYPE] 


Options : 

-a : Permet d’afficher un texte après les entrées 
affichées, pour indiquer par exemple un nom de 
disquette dans le cas d’un tri de plusieurs disquettes 
dans un même fichier (methode utilisée pour 
imprimer la premiere partie du catalogue de la 
programathèque HP-71). 


-c : Permet d’afficher le catalogue avec un format 
court, c’est à dire seulement les noms de fichiers sur 
plusieurs colonnes. 


-d : Sélection du lecteur de disquette. O0 pour le 
lecteur A, 1 pour B. Par défaut, c’est le lecteur 0. 


-e : Affichage des fichiers effacés. 


-L : Affichage au format long, c’est à dire avec les 
dates et heure de modification des fichiers, un en-tête 
donnant le Label de la disquette et des indications de 
longueur en fin de catalogue. 


-t : Affichage d’un type donné de fichier. Les noms 
reconnus sont : 
Pour la HP-41 : PR-41, KE-41, ST-41, XM-41, CA‘41, 
WA-41, ML41 et BU-41. 
Pour le HP-71 : BASIC, LEX, BIN, DATA, FORTH, 
DATA, BIN, KEY, ROM71, APPT, GRAPH, ADRS, OBJ71 et 
SYM71. 
Pour le HP-75 : TEXT75, BAS75, LEX75, APPT75, IORYS, 
VISI75 et ROMYS. 
Fichiers communs à plusieurs machines : TEXT et 
SDATA. 


Vous pouvez utiliser les filtres standards du DOS 


(more, sort, >, >>) pour rediriger les sorties vers 
l'imprimante ou un fichier. 
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Exemples : 


Affichage des fichers LEX au format court, sur le 
lecteur A:. 
Lifcat -d0 -c -t LEX 


Impression au format long de tous les fichiers, sur le 
lecteur B:, y compris les fichiers effacés. 
lifcat -eld1 >prn 


Création d’un fichier trié par nom de fichier de 3 
disquettes (avec indication du nom de disquette apres 
chaque entrée). Seuls les fichiers TEXT sont pris en 
compte. 
-mettre la disquette CAT1 dans le lecteur 
Lifcat -a cat1 -tTEXT >text.lif 
-mettre la disquette CAT2 dans le lecteur 
Lifcat -a cat2 -tTEXT >>text.lif 
-mettre la disquette CAT3 dans le lecteur 
Lifcat -a cat3 -tTEXT >>text.lif 
sort <text.lif >text.tri 


Notes : 

1- Les types de fichiers non reconnus sont affichés 
avec leur code numérique. 

2- Les types de fichiers doivent être tapés en 
majuscules. 

3- Les dates sont affichées dans le format déterminé 
par la variable COUNTRY de MS/DOS. 


LIFCP 


Cette commande permet la copie de fichiers TEXT. 
Elle effectue une conversion des caractères accentués 
en IBM ou Romans. Il est également possible de 
copier des fichiers d’un type différent. 


Syntaxe : 
DOS vers LIF : Lifcp [-bl dos_file drive:LiF_FILE 
LIF vers DOS : Lifcp [-b] drive:LiF_FILE dos_file 


drive est le numéro du lecteur : 0 pour A:, 1 pour B: 
Options : 


-b : Permet de stocker un fichier LIF sur un fichier 
MS/DOS spécial sans tenir compte de son type, ni 
faire de conversion RS8-IBM. Le fichier DOS 
contient : un code de reconnaissance au format long 
(4 octets ayant la valeur 123123, suivi de l’entrée de 
directory (copie physique sur 32 octets), suivi de la 
totalité des enregistrements du fichier LIF lui-même. 
Cette option doit être réutilisée pour effectuer la 
copie dans l’autre sens (DOS-> LIF). Cette option ne 
peut pas être utilisée sur un fichier DOS non créé 
avec cette option. 


Exemples : 
lifcp c:\src\toto.txt O:TITI 
Lifcp -b 1:DESAL desal.lex 


Notes : 


Pour les noms de fichiers LIF, les majuscules et 
minuscules sont significatifs. 

Certains fichiers HP-41 ayant des noms comprenant 
des caractères spéciaux ne pouront pas être 
manipulés. 


ACP 
Cette commande permet de générer un fichier LEX à 
partir d’un fichier créé par l’assembleur AREUH de 


Pierre David et Jannick Taïillandier. 


Syntaxe : 
acp dos_file [drive:[LIF_NAME]] 


drive est le numéro du lecteur : 0 pour A:, 1 pour B:. 
Par défaut c’est le lecteur 0. 


exemples : 
acp Lex 1: 
acp titi.ao 1:TOTOLEX 
acp c:\lex\desal .ao 
Note : 


Si LIF_NAME n’est pas spécifié, le nom du fichier sera 
celui indiqué dans le source du LEX. 


Compilation des programmes 


Avec le TURBO C : La commande LIFCP utilisant un 
buffer adressé dans le tas externe, doit être compilé 
avec un modèle de mémoire générant des pointeurs 
longs. Pour cela, sélectionnez par exemple le modèle 
COMPACT. Pour réduire la taille des programmes, 
vous pouvez convertir les commandes LIFCAT et ACP en 
fichiers .COM. Pour cela, vous devez les compiler avec 
le modèle TINY puis utiliser la commande exe2bin 
pour créer le fichier .COM. Vous ne pouvez pas 
convertir la commande L1FCP en format .COM 


Avec le Microsoft C : tous les programmes doivent être 
compilés avec l'option /AC. 

Autre Listing : getopt.c 

Cette fonction permet l’analyse des options au format 


UNIX. Un listing équivalent est fourni avec le TURBO 
C, mais pas avec le Microsoft C (à ma connaissance). 


Je vous rappelle que les sources de ces listings et les 
programmes compilés, sont disponibles sur une 
disquette (ainsi que d’autres commandes). Pour 
l'obtenir, envoyez une disquette vierge au club, nous 
vous la retournerons rapidement. 


Jacques Belin (123) 


Note : Les articles et listings de la première partie de cet article, 
présentés dans le numéro 73/75, présentent de nombreuses 
erreurs, dues notamment au formatteur utilisé pour la mise en 
page. Etant donné la taille de cet article, nous n’en publierons pas 
la version corrigée. Par contre, les personnes qui en feront la 
demande pouront en obtenir une copie corrigée. 
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